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一 ☆遊び 方 ☆  」 

百人一首の 、、坊主め くり" と ルールは 
同じ だが、 カ ルタの かわりに トランプの 
力ード をめ く つて 遊ぶ。 

RUN  HD で スタート すると'  まず ス 
ベース. キーを 押す よう になつ ている。 
これて 乱数が 初 撕 匕され、 ゲーム 開始。 
画面に 9 枚 ひと 山で 山 3 つ、 射 27 枚の 力 
ー ド か* U 向きで 表示され る。 3 人の プレ 
イ ヤーが 順番に I 枚ず つ カー ドを 引く が、 
うち 2 人は コン ピュー タの 担当。 あなた 
は、 この 2 人より 多くの カードを 取れば 
勝ち だ。 

，ドノ ヤマニ シ マスカ？" と 聞いて く 
るので、 どの 山から カードを 取る かを 番 
号で 入力す る。 山の 番号は、 左から 順に 
1 ,  2,  3 で、*— ドが 1 枚 も 残つ でい な 


い 山の 番号を 入れても 受けつ けられず、 
やり直し となる。 

カードは 4 種 頃 ある。 〇  : 何もな し。 

◊ : もう 一度 引ける。 : 持ち 札を 全部 
場に 出す （坊主)。 場に 出て いる 札を 
全部 もらう 0®)。 各自の 持ち 札 および 場 
に 出て いる 札の 数は、 画面 下部に •で 表 
示される。 Y 0  U は あなた x  C. 丨 と C.2 はコ 
ン ピュー タ、 そして FLD は 場を あらわ 
す。 

コンピュータの 番 では、 あなたが スぺ 
ース. キーを 押せば、 コンピュータが 勝 
手に 山を 選んで カー ドを 引いて く れ る。 
力ー ド カ な くなる と ゲームオーバー。 
その 時点での 持ち 札の 数の 順に、 丨， 2, . 
3 位 力 策 示される。 

[■；：  ☆プ 〇 ダ: ラムの 改良 


トラ ンプの 裏の 絵柄を 変えたい 時は、 
101 術 ~MO 桁の PRINT 文を 変更す る。 
音楽 データ は 240 行 ~27 断に 文字 変数の 
形で 入って いるので、 自分の オリジナル 
曲に 変える の も 面白い。 

また、 トラ ンプの マークの 右側が 少し 
欠けて いるので、 これを 直す には 200 行 
の 「SCREEN  0，， 0  :  WIDTH  38」 を 「S 
CREEN  I ，， 0  :  WIDTH  32」 に 変えれば 
よい。 ただし、 モニター TV によっ て^ 
左端の 文字が 見えな く なる 場合が あるの 
で 注意。 


LIST の 230,3 60, 1040 ~ 108 0,  1220  ~ 
1270， 1530 の 各行では グラフィック •キ 
ャラ クタを 使用し ます。 各 マシンの 説明 
書を よ く 読んで タイ;！％ て 下さい。 


0  P(3)=P(3)+P(P)+1：P(P)=0：PL 
690  LOCATE  5,24:PRINT" 

700  IF  Z=3  THEN  LOCATE  5,24 
710  P=P+l:IF  P=3  THEN  P=0 
720  ri(A)=n(A)-l:IF  M(A)>0  THEN  X=1-M(A>+9*A : 
730  FOR  1=0  TO  5: LOCATE  -1+9*A, I : PRINT" 

750  *  END 


G0SUB1 690: F0RI=0T0200 : NEXT : P=P- 1 
(A)-l:GOSUB  1010: GOTO  290 


770  IF  M(l)+H<2) + _ 

780  F0RI=0T0500:NEXT 
790  CLS: LOCATE 10, 2 
800  B$="6  A  M  E  0  V  E  R":G0SUB1690 
810  F0RI=0T02 
820  F0RJ=0T02 

830  Q(I)=Q(I)-(P(I)>=P(J)) 

840  NEXTJ,I：L=9 
850  F0RN=3T01STEP-1 
660  F0RI=0T02 

870  IFQ(I) く〉 NTHEM920 

880  し 0CATE8, し J し = し +3 

890  B$=STR$(4-N)  +  M. . 

900  B$=B$+" 

G0SUB1690 


1(3)00  THEN  290 


"+LEF 


920  NEXTI 
930  NEXTN 
940  F0RI=0T01 000: NEXT 
950  LOCATE 10,24 

960  B$=" モウ イチ ト*  シ 777T?  (Y/N)  ":G0SUB1690 
970  EN$=INKEY$ 

980  IF  (EN$="Y")+(EN$="y")  THEN  RUN 
990  IF  <EN$=,,N,,)  +  (EN$="n")  THEN  END 
1000  GOTO  970 
1010  » 

1020  »  DISPLAY  A  CARD  (  DOWNSIDE  ) 

1030  » 

1040  LOCATE  X-1,Y：  PRINT' 

1050  LOCATE ，X-1  ,Y+1 : PRINT 
1060  LOCATE  X-l , Y+2: PRINT 
1070  LOCATE  X-l ,Y+3: PRINT 
1080  LOCATE  X-l ,Y+4: PRINT 
1090  LOCATE  X-l ,Y+5： PRINT 


20  *  DISPLAY  A  CARD  (  UPSIDE  ) 


1160  LOCATE  X,Y+1：PRINTC$； 

1170  LOCATE  X,Y+2： PRINT"  "jC$j" 
1180  RETURN 
1190  » 

1200  »  UNDER  CARDS 
1210  » 

1220  LOCATE  PRINT"1-"; 

1230  LOCATE  I+2-J ,J : PRINT" ― i"; 


1240  LOCATE  I-J ， J+l : PRINT1  し  "； 

1250  LOCATE  I+4-J ，J+2: PRINT" 丨 " ； 

1260  LOCATE  I+4-J , J+3: PRINT" 

1270  LOCATE  I+3-J ,J+4: PRINT"-」" ； 

1280  RETURN 
1290  * 

1300  *  SCORE 

1320  IFP<P)=0  THEN  CO$=UO$: GOTO 1340 
1 330  CO$=LEFT$( LEFT* (Ul$, 1+P(P) ) +U0$,28) 

1340  LOCATE 3,14 +2*P: PRINT  00$; 

1350  RETURN 
1360  * 

1370  »  FIELD 
1380  * 

1390  IF  P<3)=0  THEN  C0$=U0$sG0T01410 
1400  CO$=LEFT$ ( LEFT$ (Ul$,l+P(3)) +U0$ , 28 ) 

1410  LOCATE  3,2 0: PRINT  C0$; 

1420  F0RI=0T02500:NEXT 
1430  RETURN 
1440  ’ 

1450  *  RND  INITIALIZE 
1460  » 

1470  LOCATE  5, 10: PRINT"PUSH  SPACE  KEY  !" 

1480  IF  INKEY$="  "  THEN  RETURN 
1490  I=RND(1) :60T0  1480 
1500 ， 

1510  *  CARDS  INITIALIZE 
1520  * 

1530  FOR  1=1  TO  3: し OCATE  1*9+1 ,0: PRINT， ■一"；： NEXT 

1540  FOR  J=0  TJO  8 

1550  FOR  1=9  TO  27  STEP  9 

1560  GOSUB  1190:X=0:R=RND<1) 

1570  IF  R>.5  THEN  X=1 

1580  IF  R>.7  THEN  X=2 

1590  IF  R> . 9  THEN  X=3 

1600  X(J,I/9)=X 

1610  NEXT  I 
1620  NEXT  J 

1630  Y=8sF0R  X=1  TO 19  STEP  9s GOSUB  101 0:NEXT 
1640  FOR  X=1  TO 19  STEP  9s GOSUB  101 0:NEXT 
1650  FOR  1=0  TO  3 

1660  LOCATE  0, 14+2*1 : PRINT  niD$( "Y0UC-1C-2FLD", 1*3+1 ,3〉 : 
1670  NEXT 
1680  RETURN 
1690  * 

1700  *  MESSAGE  UITH  BEEP 
1710  » 

1720  F0RI0=1T01_EN(B$) 

1730  P$=niD$(B$,IO,l) 

1740  PRINTP$； 

1750  IF(P$="  ")=OTHENBEEP 
1760  FORI1=1T030:NEXT 
1770  NEXTIO 
1780  RETURN 


